﻿<Serializable()> _
Public Class EadicionalesProforma

#Region "           Atributos                       "
    Private _idProforma As Int32
    Private _idAdicionalProforma As Int32
    Private _descConceptoAdicional As String
    Private _monto As Decimal
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idProforma() As Int32
        Get
            Return _idProforma
        End Get
        Set(ByVal value As Int32)
            _idProforma = value
        End Set
    End Property
    Public Property idAdicionalProforma() As Int32
        Get
            Return _idAdicionalProforma
        End Get
        Set(ByVal value As Int32)
            _idAdicionalProforma = value
        End Set
    End Property
    Public Property descConceptoAdicional() As String
        Get
            Return _descConceptoAdicional
        End Get
        Set(ByVal value As String)
            _descConceptoAdicional = value
        End Set
    End Property
    Public Property monto() As String
        Get
            Return _monto
        End Get
        Set(ByVal value As String)
            _monto = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idAdicionalProforma As Int32, ByVal descConceptoAdicional As String)

    End Sub
    Public Sub New(ByVal idProforma As Int32, ByVal idAdicionalProforma As Int32, ByVal descConceptoAdicional As String, _
                   ByVal monto As Decimal, ByVal estado As String)
        Me.idProforma = idProforma
        Me.idAdicionalProforma = idAdicionalProforma
        Me.descConceptoAdicional = descConceptoAdicional
        Me.monto = monto
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
#End Region

End Class
